home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
drivers
/
formcode.zip
/
LABEL.MPG
< prev
next >
Wrap
Text File
|
1991-10-18
|
1KB
|
46 lines
* This is the modified program for LABEL.FCG. The query statements have been
* added manually in this program. The comments describe the changes that have
* been added. All changes are in lower case. This file gets included in
* LABEL.PRG each time LABEL.PRG is generated.
*
* NOTE: This form only uses the COURIER 10 and 12 point fonts to make it
* portable to several different LaserJet printers.
*
SET TALK OFF
SET CONSOLE OFF
* The following line makes all procedures in this file accesible to the main
* program. This line is not necessary for some systems (For example FoxPro).
SET PROCEDURE TO label
DO FCGINIT
SET PRINT ON
DO FCGSTART WITH 1, 0, 2, 4, 300
FCGPAGE = 1
FCGROW = 0
FCGCOL = 0
clear
@ 12, 20 say "Starting label row (0 thru 8):" get fcgrow picture "99"
read
use labels
do while .not. eof()
DO FCGVAROBJ WITH FCGROW, FCGCOL
* Do all variable re-assignments, file pointer movements, etc, here.
skip
FCGCOL = FCGCOL + 1
IF FCGCOL >= 3
FCGCOL = 0
FCGROW = FCGROW + 1
IF FCGROW >= 9
FCGROW = 0
FCGPAGE = FCGPAGE + 1
?? chr(12)
ENDIF
ENDIF
ENDDO
DO FCGEND
SET PRINT OFF
SET CONSOLE ON
RETURN